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GENEIL\L  PURPOSE  HIGH-RESOLUTION  PLOTTING  PACKAGE 

FOR 

TEKTRONIX  4662  PLOTTER  AND  COMPATIBLE  CRT  TERMINALS 


1.  IDENTIFICATION 

1.1.  Identification  Name:  PLOTTER 

1.2.  Subroutines:  XYPLOT,  SCALE,  AXIS,  PLREAD,  PON,  POFF,  TKDASH,  MINMAX, 

TPLOT,.TERM,  A4662 

1.3.  Programming  Language: 

Language:  FORTRAN  4-Plus,  Version  3.0 
Routine  Type:  Source  Program  and  Subroutines 
Operating  System:  RSX-llM,  Version  3.2 

1.4.  Computer:  Digital  Equipment  Corp.  PDP-11/45 

1.5.  Program  Availability; 

Submittal:  Program  Descriptions  and  Listings 
On  File:  USRD  Source  Library 

2.  PURPOSE 

2.1.  Description  of  the  Routine:  The  program  PLOTTER  generates  a  12-bit 
resolution  plot  of  absissa  and  ordinate  values.  This  program  can  adapt  to 
formatted  or  unformatted  data  contained  in  one  or  two  files.  PLOTTER  also 
has  the  capability  to  allow  the  user  to  manually  enter  points  for  an  XY 
plot.  The  program  contains  the  following  options: 

•  Automatic  Scaling 

•  Point  Plot 

•  Choice  of  Line  (solid,  dashed,  dot-dash,  small  dashes) 

•  Create  New  Data  File 

•  Labels 

•  Multiple  Curves  on  One  Graph 

2.2.  Program  Background:  The  PLOTTER  program  was  designed  to  provide  USRD 
with  an  interactive  graphics  package  that  is  both  versatile  and  easy  to  use. 

3.  USAGE 

3.1.  Preparation  of  Terminal  and  Plotter:  The  preparation  needed  before 
running  the  program  PLOTTER  depends  upon  the  instrument  used;  either  the 
Tektronix  CRT  or  the  Tektroni:t  4662  plotter  may  be  used  for  plotting.  If  a 
Tektronix  CRT  is  used,  one  needs  only  to  be  logged  on  the  computer  and  to 
type  RUN  PLOTTER. 

Manuscript  submitted  June  3,  1981. 
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Since  the  program  is  self-explanatory  (see  Sec.  4.1.)  there  is  no  need 
for  further  instructions.  However,  if  the  Tektronix  4662  flat-bed  plotter 
(Fig.  1)  is  used,  the  plotter  must  be  prepared  before  running  the  program. 
This  involves  a  few  simple  steps. 


SET  UPPER 
RIGHT  POINT 


Fig.  1  -  Flat-bed  plotter  (Tektronix  4662) 

•  Rock  the  POWER  switch  to  the  right  to  turn  the  plotter  on. 
The  POWER  indicator  will  light  and  the  pen  will  move  down 
along  the  right  boundary  until  it  reaches  the  lower  right 
comer  where  it  will  stop. 

•  Depress  the  LOAD  key  to  its  locked  position.  This  will 
lift  the  pen  and  move  it  to  the  LOAD  position  (upper  right 
corner  of  platen),  and  the  electrostatic  paper  hold-down 
will  be  disengaged. 

•  Position  a  new  piece  of  paper  on  the  platen  so  the  bottom 
edge  of  the  paper  lays  evenly  along  the  paper  guide. 
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•  Press  the  LOAD  key  to  release  it  from  its  locked  position; 
this  will  activate  the  electrostatic  paper  hold-down.  If 
"bubbles"  appear  under  the  paper,  smooth  them  out  with 
your  hand. 

•  Choose  a  scale  so  that  the  graph  fits  the  page. 

Use  the  joystick  to  position  the  pen  to  the  lower  left 
corner  of  the  paper. 

•  Press  the  SET  LOWER  LEFT  key  and  hold  it  down  until  the 
plotter  bell  rings. 

•  Using  the  joystick,  move  the  pen  to  the  upper  right  comer 
of  the  paper. 

•  Press  the  SET  UPPER  RIGHT  key  and  hold  it  down  until  the 
plotter  bell  rings. 

After  logging- in  on  the  terminal,  you  may  now  type  RUN  PLOTTER  <CR> 
(<CR>  represents  depressing  the  RETURN  key).  The  graphs  produced  on  the  CRT 
and  on  the  flat-bed  plotter  (Tektronix  4662)  are  identical  except  there  is 
12-bit  resolution  on  the  Tektronix  4662  and  10-bit  resolution  on  the  CRT 
plots.  To  ensure  a  12-bit  resolution,  the  rear-panel  switches  of  the  4662 
must  be  properly  set.  These  parameter  settings  are  vital  to  proper  system 
operation.  Figure  2  shows  the  switch  positions. 


Fig.  2  -  There  are  four  hexadecimal  switches  labeled 
A,  B,  C,  and  D  in  the  rear  panel  of  the  4662.  The 
switches  should  be  set  at  the  2321  position  as  shown. 

3.2.  Input:  The  user  must  supply  the  name  of  the  single  file  containing  the 
:{Y  coordinates  or  the  names  of  the  files  containing  the  X  data  and  the  Y 
data.  The  data  files  can  be  formatted  or  unformatted.  As  an  option,  the  XY 
data  can  be  entered  interactively.  This  option  will  store  the  data  in  two 
unformatted  files:  DATAX.DAT.  and  DATAY.DAT. 


3.3.  Output:  A  typical  output  is  shown  in  Section  4,  The  output  is 
primarily  the  CRT  plot  or  4662  plot  with  appropriate  labels. 


3.4.  Limitations;  The  data  arrays  have  been  dimensioned  at  1000.  To 
accommodate  more  than  1000  points  the  source-program  statement  must  be 
changed. 

3.5.  Format:  PLOTTER  can  accommodate  data  file(s)  containing  one  X  or  Y 
value,  or  one  ,XY  coordinate  per  line  in  any  format. 

4.  TEST  METHOD  AND  RESULTS 

To  test  PLOTTER,  four  data  files  were  created  in  different  formats.  The 
interaction  found  in  Section  4.1.  is  an  example  of  the  t^’pe  of  responses 
needed  for  this  routine.  Sections  4.2.  and  4.3.  give  examples  of  the  graphs 
produced  by  PLOTTER  on  the  Tektronix  4662. 

4.1.  Running  PLOTTER:  This  is  an  example  of  the  interaction  involved  in 
running  the  program. 

<C5> 

00  '?0U  WANT  TO  CaEATS  HtA  OATA  FtLCS?  f/N:  M  <CR> 

cntcr  number  of  points  to  ae  plotted:  ^  <C2i 

COORDINATES  CONTAINED  IN  I  OR  2  FILES?  I,  <CJJ> 

ARE  FILES  <l)UNF0RMAT7e0  Oft  C  2  )F0ftMATTCO :  X 

ENTER  FORMAT  TO  USE  FOR  READING:  ClE.  C2F10.0)  0  Cf«*.  1  .FT . ! 3  <C2> 

FILENAME  FOR  X,Y  DATA:  C^LIO.DAT  <CZ> 

00  TOU  WANT  AUTOMATIC  SCALING?  T/N  N  <CJf> 

XMIN  s  0.20000000S«fOl  “ 

XMAX  s  0.  r04000Q2e«.02 
YMIN  s  0,49976001S*01 
TMAX  s  0.50847101E*01 

Sr.TER  THE  XMIN, XMAX. YMin,YMAX  YOU  WISH  TO 
USE  SEPARATED  BY  COMMAS:  3 . 0 . 33 . 0 . 4  .  <?  7 .  f  .  10  <C5> 

ENTER  THE  4  OF  X  TIC  MARKS.  4  OF  Y  TIC  .MARKS:  <CR> 

DO  YOU  WANT  POINT  PLOT?  Y/N  v 

00  YOU  WANT  labels?  IF  USING  CRT,  TYPg  N;  Y  <C^> 

type  in  label  for  PLOT:  CALIBRATION  AT  iO  '.Zl  <C>^> 

type  IN  LABEL  FOR  X  AXIS:  PRESSURE  <CR> 

TYPE  IN  label  for  y  AXIS:  VOLUME  <CR> 

00  YOU  WANT  ANOTHER  CURVE  ON  THIS  AXIS?  Y/N  Y  <CR> 

YOU  HAVE  A  CHOICE  AS  TO  WHICH  TYPE  LINE  TO  USE. 

SOLID  LINE  -  type  !  DASHED  LINE  -  TYPE  2 

OA3H-OOr  LINE  -  type  J  SHORT  DASHES  -  TYPE  4  ^  <C!2> 

00  YOU  want  to  create  new  OATA  FILES?  Y/N;  N  <CJ?> 

ENTER  number  OF  POINTS  TO  SE  PLOTTED:  2^  <CR> 

COORDINATES  CONTAINED  IN  1  OR  2  FILES?  <CC> 

ARE  •"ILE5  Cl  )L'NFOF“Ar*SO  OR  ( 2  )FORMATTeD?  2  <CT> 

t'lTER  format  to  use  "OR  READING:  OE.  CCFIO.O)  )  C  ?  F I J  .  ‘  )  <02> 

filename  for  x.r  data:  p^-Alu-Dat  <CK> 

20  YOU  -ANT  ANOTHER  CURVE  ON  THIS  AXIS?  Y/N  N  <C?> 

TO  0Rap«  another  curve,  type  Run  »lOTt£R 


NOTE:  All  underlined  portions  are  user-supplied 


VOLUME 


4.2.  PLOTTER  Output  Example:  Figure  3  is  a  typical  plot  of  four  experimental 
data  sets  and  a  rational-fraction  curve  fit  to  the  data. 


CALIBRATION  AT  I0:C3 
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4.3.  PLOTTER  Output  E:tample;  Figure  4  is  another  example  of  the  output  from 
the  Tektronix  4662  plotter.  This  plot  illustrates  the  various  line  types 
that  can  be  obtained. 


PRESSURE 


Fig.  4 
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APPENDIX  A 


SOURCE  LANGUAGE  LISTING 


PLOTTER  PROGRAM 
SEPTEMBER, 1980 

PROGRAMMED  BY  TINA  RUGGIERO  AND  BOB  ANDERSON 


THIS  PROGRAM  IS  DESIGNED  FOR  THE  TERTRON I X-4662  FLAT  BED  PLOTTER 
IN  WHERE  X  AND  V  DATA  CAN  BE  PLOTTED  IN  THE  FOLLOWING  FORMS: 

1)X  AND  Y  DATA  IN  SEPARATE  FILES-UNFORMATTED 

2>X  AND  Y  DATA  IN  SEPARATE  FILES-FORMATTED 

3>X  AND  Y  DATA  IN  SAME  FILE-UNFORMATTED 

4) X  AND  Y  DATA  IN  SAME  F I LE-FORMATTE D  OR 

5) POINTS  CAN  BE  INPUTED  MANUALLY. 


SUBROUTINES  USED  ARE:  TPLOT,  XYPLOT.  TERM.  AXIS.  MINMAX,  TKDASH . 

A4662.  PON,  POFF,  SCALE,  PLREAD 


LIMITATIONS: 

DATA  ARRAYS  ARE  DIMENTIONED  AT  1000  POINTS 
DATA  MUST  BE  REAL 


NOTE  : 

THERE  IS  A  PROGRAM  CALLED  ’UEDIT'  WHICH  CAN  BE  USED  FOR 
EDITING  UNFORMATTED  SINGLE  ARRAYS. 
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BEFORE  RUNNING  PROGRAM,  TURN  PLOTTER  ON,  LOAD  PAPER,  AND  SET  THE 
LOWER  LEFT  AND  UPPER  RIGHT  POINTS 


BYTE  DATAX<32).  0ATAY(32>.  COOR( 4 > .  ILFA(7flr).  ITXT(148> 

REAL  X{  2050) ,  V(2jar50)  ,XMIN,XMAX.YMIN,VMAX.XMIN1  .XMAXl  ,  YMINl  .YMAXl  . 
1  XRANG.YRANG,0ASH(8) 

INTEGER  NPOINT.NPONT.LENX,  LENY.  NANS. 

1  ITYPE.XVAL(20S0>,YVAL<2050). 

1  ITYMAX, ITXMIN, ITYMIN 

CALL  ERRSETt  29. . .FALSE . . , . FAL SE . . . > 

CALL  ERRSET( 30. .. FALSE  ... .FALSE  ...  ) 


ICENT  IS  HALF  THE  NUMBER  OF  CHARACTERS  USED  IN  THE  LABEL 


ICENT-42 

NOASH-1 


POFF  TURNS  THE  PLOTTER  OFF 


CALL  POFF<5) 
0  WRITEtS.U) 


IF  YOU  HAVE  YOUR  DATA  ON  A  FILE  YOU  DON'T  WANT  A 
NEW  DATA  FILE. 


1  FORMAT! /. 'SDO  YOU  WANT  TO  CREATE  NEW  DATA  FILES?  Y/N:  ') 
READ  (5.12>NANS 

2  FORMAT(Al) 

NAN- ' N’ 

IF  (NANS  .EQ.  'N'  )  GO  TO  16 
IF  (NANS  .EQ.  'Y' )  GO  TO  15 
GO  TO  10 


XYPLOT  IS  WHERE  NEW  DATA  FILE  IS  CREATED  IF  POINTS 
ARE  ENTERED  MANUALLY 


15  CALL  XYPLOKX.  Y.NPONT) 

GO  TO  za 

16  WR1TE<5.17) 

REA0<5, 18)NPOINT 

17  FORMAT< /, • SENTER  NUMBER  OF  POINTS  TO  BE  PLOTTED:  ') 


C 

c 

c 

c 

c 

c 

c 


18  FORMAT!  14) 


IF  YOU  DON'T  KNOW  THE  NUMBER  OF  POINTS  IN  THE  FILE. 
MAKE  SURE  YOU  ENTER  A  NUMBER  THAT  IS  POSITIVELY 
LARGER  THAN  THE  NUMBER  OF  POINTS  YOU  HAVE. 


C  . 

C  ! 

C  :  PLREAD  DETERMINES  THE  NUMBER  OF  FILES  AMO  THE  FORMAT  THAT  YOUR 

C  :  DATA  IS  IN 

C  : 

C  . 


CALL  PLREAO<X,Y,NPOINT) 


NPONT-NPOINT 

20  1F<ANSW  .EQ.  'Y'lCALL  PON(5) 

IF(ANSW  .EQ.  ' Y' )GO  TO  60 


C  . 

C  * 

C  :  MINMAX  DETERMINES  THE  MINIMUM  AND  MAXIMUM  VALUE  OF  AN  ARRAY 

C  : 

C  . 


CALL  MINMAX(X,XMIN.XMAX.NPONT) 
CALL  MINMAX! Y.YMIN.YMAX.NPONT) 
WRITE!5.21 ) 


C 

C 

C 

C 

c 

c 


AUTOMATIC  SCALING  WILL  SCALE  YOUR  DATA  AND  WILL 
CALL  THE  SUBROUTINE  AXIS. 
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FORMAK/, 'SDO  YOU  WANT  AUTOMATIC  SCALING?  Y/N 

REAO(5.23)AUTO 

FORMAT(Al ) 

IF(AUTO.ME.  ■ Y* )GO  TO  30 


SCALE  DRAWS  AND  LABELS  AXIS 


CALL  SCALE <  XMIN-( XMI N*5 . 0E-05 ) . XMAX*< XMAX-5 .0E-05 ) , XMI N 1 , XMAX I , NTICX ) 
CALL  SCALE  ( YMIN-<  YMI N*5 .0E -05  ) , YMAX-»<  YMAX«5.0E-05 ) . YMINl , YMAXl .NTICY ) 
GO  TO  42 

THE  X  AND  Y  MIN  AND  MAX  WILL  BE  PRINTED. 

WRITE (5,31  )XMIN,XMAX,YMIN.YMAX 

FORMAT! •  XMIN-- .EIS.B,/, •  XMAX- ' . E 15 . 8 , / . ‘  YMI N» ■ , E 1 5 . 8 . / . 

1  ■  YMAX-' .E15.8> 

WRITE (5. 32) 

WRITE{5,33) 

FORMAT!/, •  ENTER  THE  XMI N , XMAX , YMIN , YMAX  YOU  WISH  TO  '  > 

FORMAT! 'S  USE  SEPARATED  BY  COMMAS:  •) 

READ! 5,34  >XMI N 1 . XMAX 1 . YMI N 1 . YMAXl 
FORMAT!4E15.0) 

WRITE! 5,40) 


TIC  MARKS  ARE  THE  DIVISIONS  ON  THE  AXIS 


FORMAT! /.' SENTER  THE  #  OF  X  TIC  MARKS,#  OF  Y  TIC  MARKS: 

READ  (5,41  )NTICX, NTICY 

FORMAT(2I2) 

CONTINUE 


THESE  VALUES  ARE  THE  MAX.  &  MIN  OF  THE  TEKTRONICS  PLOTTER 


TXMIN- 
TXMAX- 
TYMIN- 
TVMAX- 
ITXMIN 
ITXMAX 
IT'/MIN 
ITVHAX 
GO  TO 


600 

3999 

550 

2731 

-TXMIN 

-TXMAX 

-TYMIN 

-TYMAX 

72 
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ooooooo  o  ooooo  cn  o  o  o  n  o  o 


THE  SUBROUTINE  SCALE,  AUTOMATICALLV  SCALES  THE  DATA  AND  CALLS 
SUBROUTINE  AXIS 


CALL  PON(5> 
CALL  TERM(0.jar) 


CALL  AXIS{ XMINI ,XMAX1 .NTICX,TXMIN.TXMAX.VMINl , YMAXl .NTICY .TVMIN. 
1  TYMAX.jB) 


A4662  CHANGES  THE  SIZES  OF  THE  CHARACTERS  IN  LABEL 


CALL  A4662<  5. 'A' ,56,80,jar,;af) 

SCALE  THE  POINTS 

XRANG=XMAX1-XMIN1 

TXRANG-TXMAX-TXMIN 

YRANG=YMAX1-YMIN1 

TYRANG-TYMAX-TYMIN 


THIS  SECTION  DETERMINES  THE  TYPE  LINE  DESIRED.  WHEN  NDASH-1 
-SOLID  LINE,N0ASH=2-DASHE0  LINE .NDASH-3-OASH-DOT, 

AND  NDASH-4  IS  SMALL  DASHES. 


60  CONTINUE 

IF  (NDASH  .EO.  1)  DASH< 1  )-2000.0 

IF  (NDASH  .EQ.2)  DASH( 1 )-40.0 
IF  (NDASH  .EQ.2 >0ASH( 2 )»40.0 


IF(NDASH  .Ea.3  )0ASH( 1 )»50.0 
IF<NOASH  .EQ.3)OASH(2>-50.0 
IF(NDASH  .EQ.3)DASH(3)-4.0 
IF(NOASH  .Ea.3>OASH(4>*50.0 


IF(NDASH  .EQ. 4 )DASH{ 1 ;*10.0 
IF(NDASH  .EQ.4)DASH<2>-25.0 
IFdiDASH  .EQ.4)DASH<3)«10.0 
IFCNOASH  .EQ.4  >DASH(  4  >-^25.0 
IF(NDASH  . EQ.4 )DASH< 5 )-10.0 
IF<NDASH  -EO. 4  )0ASH( 6)-25.0 


IF(NDASH  .EQ.4>NDASH-6 
IF(NDASH  .EQ.3>NDASH»4 
MO-1 
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63 


OO  62  I-l,NPONT 

IFv Y( I  )  .LT. YMINl  .OR.  X( I )  .LT.  XMINl  .OR.  X{ I )  .GT.  XMAXl)GOTO  62 
XVAL(MO)-INT( ( { X( I )-XMINl )•( TXRANG )/< XRANG ) >  +  TXMIN  > 

YVAL(MO)-INT( < ( Y( I  )-VMINl )*( TYRANG )/( YRANG ) )+TYMIN  > 
FORMAT(2EI5.3,2I4  > 


TPLOT  POSITIONS  PEN  AND  WHEN  ITYPE<0,  A  POINT  IS  DRAWN 


IF(NAN  .EQ.  ‘V)  CALL  TPLOT  < XVAL { MO > , YVAL ( MO ) , - 1 ) 


TKOASH  PLOTS  THE  DESIRED  TYPE  LINE 


IF  (NAN  .NE.  'Y')  CALL  TK0ASH< XVAL { MO ) , YVAL ( MO ) , MO . DASH , NDASH ) 

MO«MO+l 

CONTINUE 

CALL  TPLOT(XVAL(MO).YVAL(MO),0) 


TERM(1,0)  DUMPS  THE  BUFFER 


CALL  TERM<1,0) 
CLOSE! UNIT=1 ) 
CLOSE! UNIT-2 ) 
CONTINUE 
CALL  POFF!5> 
WRITE! 5,70) 


THIS  ALLOWS  FOR  UP  TO  4  CURVES  ON  1  GRAPH. 


70 


71 


72 


FORMAT! /.' SDO  YOU  WANT  ANOTHER  CURVE  ON  THIS  AXIS?  Y/N  ') 
READ! 5,71 )ANSW 
FORMAT! A1 ) 

IF(ANSW  .EQ.  ' Y' )  GO  TO  120 

GO  TO  140 

CONTINUE 

ITYPE-0 

WRITE!5.80) 


L 
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IF  YOU  DON'T  WANT  A  LINE  PLOT  YOU  WILL  GET  A 
POINT  PLOT. 


aZ  FORMAT! /, 'SOO  YOU  WANT  POINT  PLOT?  Y/N  ') 

READ(5,81 )NAN 
81  FORMAT! Al) 

IF  !NAN  .EQ.  'Y' >  ITYPE--1 
WRITEI5.82) 


C 

C 

C 

c 

c 

c 


82  FORMAT!/, 'SDO  YOU  WANT  LABELS?  IF  USING  CRT.  TYPE  N:  ') 

REA0!5,83)ILAB 
33  FORMAT!A2) 

IF! ILAB  .EQ.  'N'  )  GO  TO  SZ 
WRITE!6.84) 

84  FORMAT!/, 'STYPE  IN  LABEL  FOR  PLOT:  •) 


THERE  ARE  THREE  LABELS.  ONE  LABEL  IS  THE  TITLE  LABEL 
AND  THEN  THERE  IS  A  LABEL  FOR  THE  X  AND  Y  AXIS. 


C  . 

C  s 

C  :  ICNT  IS  THE  LENGTH  OF  WORD,  ILFA  IS  THE  WORD 

C  s 

C  i . 


90  READ!  5,9UICNT,  ILFA 

91  FORMAT! Q, 70A1 > 

IF! ICNT.Ea.0)GO  TO  93 
DO  92  I-l.ICNT 
ITXT! I  )»ILFA!  I  ) 

92  CONTINUE 
NT=ICNT 

IF!A  .EO.DGO  TO  111 
IF!B  .EQ.DGO  TO  113 


C  . 

C  : 

C  PON  TURNS  THE  PLOTTER  ON 

C  : 

C  : . 


93  CALL  PON! 5) 
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TERM(J?,0)  CLEARS  THE  SCREEN 


CALL  TERM(0.0) 

CALL  TPLOT(0, 2400,0) 

IF(NT  .GT.  nWRITE  ( 6 . 100 >( ITXT< IX ) , IX- 1 . NT ) 
100  FORMAT! ■  • ,T<ICENT-« ICNT/2>>.<NT>A1 > 

CALL  POFF(S) 

WRITE(5.110) 

110  FORMAT! STVPE  IN  LABEL  FOR  X  AXIS:  ') 

A-1 

GO  TO  90 

111  CALL  TPLOT!0, 250,0) 

ICENT-50 

CALL  PON! 5) 

CALL  A4S62!5, 'A' ,50,75,0,0) 

CALL  TERM!2,0) 

WRITE! 6, 100)! I  TXT! IX), IX- 1 .NT) 

CALL  POFF!5) 

WRITE!5.112) 

112  FORMAT! /,' STVPE  IN  LABEL  FOR  V  AXIS:  ') 

B-1 

A-0 

GO  TO  90 

113  CALL  TPLOT! 125,0,0) 

ICENT-35 

CALL  PON! 5) 

CALL  A4662! 5, 'A' ,50,75,90,0) 


CALL  TERM!2,0) 

WRITE! 6, 100)1 ITXT! IX ) , IX-1 .NT) 

CALL  A466215, 'A' ,44,60,0,0) 

GO  TO  51 

120  WRITE!5,121) 

121  FORMAT!/,'  YOU  HAVE  A  CHOICE  AS  TO  WHICH  TYPE  LINE  TO  USE.  ’) 
WRITE!5, 122) 

122  FORMAT!/, ■  SOLID  LINE  -  TYPE  1  DASHED  LINE  -  TYPE  2') 

WRITE! 5. 123  > 

123  FORMAT! 'S  DASH-DOT  LINE  -  TYPE  3  SHORT  DASHES  -  TYPE  4  ') 

READ  !5,124)N0ASH 

124  FORMAT!  ID 
GO  TO  10 

125  WRITE(5.130) 

130  FORMAT!'  ENTERED  WRONG  DATA  FILE’) 

CLOSElUNIT-5) 

CALL  PLREAD!X.Y,NPOINT) 

131  WRITE15.130) 

CALL  PLREAO!X,Y.NPOINT) 

140  'VRITE!  5, 141  ) 

141  FORMAT!/,'  TO  GRAPH  ANOTHER  CURVE,  TYPE  RUN  PLOTTER') 

END 
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APPENDIX  3 


SUBROUTINES 

The  following  subroutines  are  those  required  for  the  program  PLOTTER: 
Subroutine:  XYPLOT 


THIS  SUBROUTINE  CREATES  TWO  UNFORMATTED  REAL  ARRAYS 
PROGRAMMED  BY  TINA  RUGGIERO 
SEPTEMBER,  198j0r 


SUBROUTINE  XYPLOTI X . V , NPONT ) 


THE  ARGUMENTS  X.Y.NPONT  ARE  RESPECTIVELY.  THE  ARRAY  CONTAINING 
A8SISSAS.  THE  ARRAY  CONTAINING  ORDINATES.  AND  THE  NUMBER  OF 
POINTS  TO  BE  PLOTTED. 


REALX( 1  ).Y( n 

INTEGER  I .SU8.ANS.MPONT 

WRITEO.  Uar) 

lj0r  FORMAT(//.'  ENTER  ORDERED  PAIR  SEPARATED  BY  A  COMMA') 

I-BT 

WRITE<S.20) 

ZSI  FORMAT!/'  WHEN  FINISHED  ENTERING  DATA. TYPE  "CTRL  Z“  '  > 

OPEN! UNIT«1. NAME- 'DATAX.DAT' .TYPE-'NEW* . FORM- ’ UNFORMATTED ' ) 
OFEN!UNIT-2.NAME»'DATAY.OAT' .TYPE-'NEW* . FORM- ' UNFORMATTE D ' ) 
15  I -  I  +  1 

WRITE!5.22) 

22  FORMAT!  / ' S0ATA7  ') 

READ! 5 .30.ENO-4g  >X! I  ) . Y! I  ) 

30  FORMAT!2E15.a) 

GO  TO  15 

49  CLOSE!UNIT-5) 

WRITE! 5.50) 

50  FOP.MAT!  /  .  '  SDO  YOU  WANT  TO  CHANGE  ANY  VALUES  !  Y/N  )7  ') 

REAO!5.60)ANS 

60  FORMAT!Al) 

IF  lANS.EQ. 'N' )GO  TO  40 
WRITE! 5. 70) 

70  FORMAT! • SENTER  SUBSCRIPT  NUMBER  OF  CORRECTION  ') 

READ! 5.30)SU3 
80  FORMAT! 12) 

WRITE!5.90) 

90  FORMAT! ' SRE-ENTER  BOTH  THE  X  AND  Y  VALUES  ') 

READ  !5.30)  X! SUB  ) . Y! SUB  ) 

GO  TO  49 

40  NPONT-I-1 

DO  91  :»l.NPONT 


(continued) 
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Subroucir.a 


XYPLOT  (continued) 


WRITE( 1 >X(  I  > 

WRITE<  2  )Y<  I  > 

91  CONTINUE 

CL0SE(UNIT-1  ) 

CI.OSE(  UNIT-2  ) 

WRITE{5,80J0r) 

800  FORMAT!/, ’  REMEMBER  YOU  HAVE  JUST  CREATED  TWO  UNFORMATTED  ARRAYS') 
WRITE  ( 5,301 ) 

801  FORMAT! •  WHICH  ARE  CALLED  DATAX.DAT  AND  DATAY.DAT') 

WRITE! 5. 100) 

100  FORMAT!/,'  DATA  FILE  CLOSED' ) 

RETURN 

END 


Subroutine:  SCALE 

Entry:  AXIS 


SUBROUTINE  SCALE ! DMN . DMX . SMN . SMX . NO I V  ) 

•SCALE*  DETERMINES  AN  APPROPRIATE  SCALE  WITH  NEAT  LABELS 
AT  MULTIPLES  OF  1,2,  OR  5, 

REQUIRES: 

DMN-MIN  DATA  VALUE 
OMX-MAX  DATA  VALUE 
RETURNS: 

SMN-MIN  SCALE  VALUE 
SMX-MAX  SCALE  VALUE 
NOIV-NUMBER  OF  SCALE  DIVISIONS 
L.  D.  LUKER  8/15/80 

REVISED  BY  TINA  RUGGIERO 

TEKINT!Z)-ANINT!Z-.499999) 

NFMT! VAL  )-MI N I ! 3 . -TEKI NT! 1 . +ALOG10( ABS! VAL ) > ),2. ) 

0  TYPE  •.'SCALE  ','  DMN-', DMN,'  DMX-', DMX 

R-! DMX-OMN  >/6. 

S-10.**!TEKINT!ALOG10! R)  >  ) 

T-R/S 

IF  !T.GT.2)  GOTO  110 
IF  IT.EQ. 1  )  GOTO  130 
S-S*2 
GOTO  130 

110  IF  !T.GT,5)  GOTO  120 

S-5*S 
GOTO  130 
120  S-10*S 

130  SMN-TEKINT<DMN/S) 

SMN-S*! SMN+2  > 

140  IF  !! SMN-OMN >/! DMX-OMN ) .LE. lE-5  )  GOTO  150 

SMN-SMN-S 
GOTO  140 

150  SMX-TEKINT!OMX/S) 

SMX-S*<  SMX-2  > 

160  IF  ! !DMX-SMX)/!DMX-DMN>.LE.lE-5)  GOTO  170 

SMX-SMX+S 
GOTO  160 

170  NOIV-NINT! ! SMX-SMN )/S ) 

0  TYPE  •, 'SCALE  ','  SMN-', SMN,'  SMX-', SMX,'  NDIV-'.NDIV 

RETURN 


(continued) 
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Subroutine:  SCALE  (continued) 
Entry:  AXIS  (continued) 


c 

ENTRY  AXIS(XMN.XMX.NXDIV,TXMN.TXMX.YMN.VMX.NVOIV,TVMN,TVMX. IZL ) 
C  DRAWS  AND  LABELS  THE  X  &  Y  AXES 
C  REQUIRES: 

C  XMN-MIN  X  VAL 

C  XMX-MAX  X  VAL 

C  NXDIV-NUMBER  OF  X  SCALE  DIVISIONS 

C  TXMN-TERMINAL  X  VAL  CORRESPONDING  TO  MIN  X  VAL 

C  TXMX=TERMINAL  X  VAL  CORRESPONDING  TO  MAX  X  VAL 

C  ALSO  ALL  THE  ABOVE  FOR  Y 

C  I2L=0  DON'T  DRAW  ZERO  LINE  ,  IZL-1  DRAW  ZERO  LINE 
D  TYPE  *. 'AXIS-' .XMN.XMX.NXDIV.TXMN.TXMX.YMN.YMX.NYDIV.TYMN.TYMX 

T1»AMAXI( ABS( XMN  )  ,ABS<  XMX  >  > 

TI-I0.**( 3»TEKINT{ ( TEfCI NT( ALOG I0( TI ♦A8S( ( XMX-XMN )/ 1 E 4 ) ) ) ) /3 . ) ) 
Xl-XMN/Tl 

XDIV-<  XMX-XMN )/( 2*NX0 IV) 

XDX»(TXMX-TXMN  >/(2*NX0IV) 

IX-TXMN 

lY-TYMN 

CALL  TPLOT<  IX-U4,  IY-20,0) 

N  =  2 

IF  (ABS{ XI  )  .GT. .001 )  N-NFMT(Xl) 

CALL  TERM<2.0> 

WRITE! 6,210)X1 
DO  180  I=1,NXDIV*2 

Xl-<  XMN*I«XDIV)/T1 
IF  <ABS(  XI  )  .LT.  .  1  )  X1=»0. 

IX-TXMN*! I-l )«XDX 
CALL  TPLOT< IX. IY,0) 

IX«TXMN+I»XDX 
CALL  TPLOTC IX. lY, 1) 

CALL  TPlOT< IX. IY+20. 1 ) 

IF  (1/2. .NE.AINT(l/2.>)  GOTO  180 
CALL  TPLOT< IX, IY  +  40. 1  ) 

CALL  TPLOT(  IX-U4.  IY-20,0) 

N  =  2 

IF  (ABS( XI  )  .GT. .001  )  N»NFMT{X1) 

CALL  TERM(2.0) 

WRITE! 6.210>X1 
180  CONTINUE 

CALL  TPLOT! IX-240. IY-128.0) 

CALL  TERM!2.0) 

ITl-ANINT! ALOGI0!T1 > ) 

WRITE! 6.220)IT1 
C 

T1 -AMAX 1 ! ABS! YMN ) , ABS! YMX ) ) 

Tl»10.*«! 3*TEKINT! !TEKINT!ALOG10{T1+ABSI I YMX-YMN>/1E4  ) ) ) )/3.  ) ) 
Y1=YMN/T1 

Y0IV-!  YMX-YMN  )/!2’*NY0IV) 

YDX-! TYMX-TYMN  >/! 2»NY0 1 V ) 

lY-TYMN 

IX-TXMN 

CALL  TPLOT! IX-288. IY+80.0) 

N»2 

IF  !ABSI Y1  )  .GT. .001 )  N  =  NFMT!yi) 

CALL  TERM!2.0) 

WRITE! 6.210>Y1 
DO  190  I-l  .NYDrV-2 
Y1-! YMN+I-YDIV>/T1 
IF  !ABS( Y1 ) .LT. . 1 )  Yl-0. 

IY-TYMN+< I-l J-YOX 
CALL  TPLOT! IX. IY.0) 
lY-TYMN+I-YDX 


(continued) 
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Subroutine:  SCALE  (continued) 

Entry;  AXIS  (continued) 

CALL  TPLOT(  TX. lY.  1 ) 

CALL  TPLOT( IX  +  ZflT. lY.  1  > 

IF  < 1/2. .NE .AINTI 1/2.  ) )  GOTO  190 
CALL  TPLOK IX  +  40.IY,1  ) 

CALL  TPLOK  l;<-28a,  IY  +  56,^) 

N-2 

IF  (  ABS(  Y1  )  .GT.  .j0fJ0m  N-NFMT{Y1) 

CALL  TERM(2.jar) 

WRITE! 6. 210) Y1 
190  CONTINUE 

CALL  TPLOT! IX-316, IY+160,0) 

CALL  TERM(2,0) 

IT1=ANINT<ALOG10(T1  )  ) 

WRITE! 6,220) ITl 

ITXMN»TyMN 

ITXMX-TXMX 

ITYMN-TYMN 

ITYMX=TYMX 

CALL  TPLOT! ITXMN,ITYMX,0) 

CALL  TPLOT! ITXMX, ITYMX, I  ) 

CALL  TPLOT! ITXMX, ITYMN, 1  ) 

IF  ! IZL.EQ.0)  GOTO  200 

IF  ! YMN*YMX.GT,0)  GOTO  200 

lYZERO-! -YMN )«! TYMX-TYMN )/! YMX-YMN )+TYMN 

CALL  TPLOT! ITXMN, IYZERO,0) 

CALL  TPLOT! ITXMX, lYZERO, I  ) 

200  RETURN 

C  FORMAT  STATEMENTS 
210  FORMAT!'  •,F5.<N>) 

220  FORMAT!'  ','!•£',  13  ,')' ) 

ENO 


Subroutine:  PLREAD 


c  . 

C  : 

C  :  THIS  SUBROUTINE  IS  DESIGNED  TO  READ  X  AND  Y  COORDINATES  FROM  EITHER 

C  :  FORMATTED  OR  UNFORMATTED  FILES  CONTAINING  X,  V.  OR  X  AND  V  DATA. 

C  ;  AS  IT  READS  THE  NUMBER  OF  POINTS  SPECIFIED  ! NPTS )  IT  ALSO  DETERMINES 

C  :  THE  MINIMUM  AND  MAXIMUM  VALUES  OF  EITHER  OR  BOTH  COORDINATES.  IT  ALSO 

C  :  MODIFIES  NPTS  IF  AN  ATTEMPT  IS  MADE  TO  READ  MORE  '/ALUES  ! OR  SETS  OF 

C  :  VALUES)  THAN  ARE  CONTAINED  IN  THE  SPECIFIED  FILE. 

C  : 

C  : . 

C  WRITTEN  BY  BOB  ANDERSON  AND  TINA  RUGGIERO 


SUBROUTINE  PLREAD! X , Y . NPTS  ) 


(continued) 
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Subroutine:  PLEEAD  (continued) 


c 

c 

c 

c 

c 

c 

c 


THE  FILE  NAME(S)  ARE  SAVED  ALONG  WITH  THE  NUMBER  OF  FILES  AND  THE 
FILE  TYPE(S).  FILE  TYPE  -  2  •  NUMBER  OF  FILES  ♦  1  FOR  UNFORMATTED,  OR 
2  FOR  FORMATTED. 


COMMON  FILEX, FILEY. IFTYP 


C  . 

C  : 

C  :  ARRAYS  TO  SAVE  UP  TO  NPTS  COORDINATE  VALUES. 

C  : 

C  : . 


DIMENSION  X< 1  ) . V( 1  ) 


C 

C 

c 

c 

c 

c 


ARRAYS  IN  COMMON  TO  SAVE  THE  FILE  NAME(S).  FILEX  IS  USED  FOR  ONLY  ONE 
FILE  . 


BYTE  FILEX(32),FILEY{32),FMT<32) 


C  . 

C  : 

C  :  DETERMINE  IFTYP  BY  FIRST  FINDING  OUT  HOW  MANY  FILES  ARE  TO  BE  USED. 

C  : 

C  : . 


50  CL0SE(UNIT-5) 

WRITE(5, 1000)  ^ 

1000  FORMAT! /• SCOORDINATES  CONTAINED  IN  I  OR  2  FILES?  ’> 
READ! 5, 1010. END-50 )NF I LES 
1010  FORMAT! 14) 

IF<NFiLES.LT.1.0R.NFILES.GT.2)  GOTO  50 


C  . 

C  : 

C  AND  THEN  FIND  OUT  IF  IT  OR  THEY  ARE  FORMATTED  OR  UNFORMATTED. 

C  : 

C  : . 


(continued) 
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Subroucine:  PLREAD  (continued) 


10B  Cl.0SE(UNIT-5> 

WRiTE<  5.  i;er2jcr) 

IB20  FORMAT< /. 'SAKE  FILES  ( 1 )UNFORMATTED  OR  (  2 )FORMATTED :  ’) 
REA0<5.1flria,EN0-lJaa)  ITYPE 
IFTYP-NFILES*2+ITYPE 


C  . 

C  ; 

C  :  NOW  RFAD  THE  DATA  UP  TO  NPTS.  MODIFY  NPTS  IF  <  PARAMETER  PASSED. 

C  : 

C  . . 


I^rS 


IF( IFTYP.EQ.3) 
IFl IFTYP.EQ.4) 
IF( IFTYP.EQ.5  ) 
IF( IFTYP .EQ.6  ) 
GOTO  SB 


GOTO  2BB 
GOTO  3BB 
GOTO  ABB 
GOTO  SBB 


C  . 

C  : 

C  s  BOTH  COORDINATES  ARE  CONTAINED  IN  ONE  FILE  AND  IT  IS  UNFORMATTED. 

C  : 

C  . . 


2BB  WRITE(5,1jB50) 

1050  FORMAT< / ' SFILENAME  FOR  X,Y  DATA:  ’> 

REA0( 5. 1060. END-50 )LEN. FI  LEX 
C  NOTICE  LAST  CHANCE  TO  START  OVER!  ('"'2) 

1060  FORMAT<Q,32Al  ) 

F ILEX<  LEN+1  )-0 

OPEN<  UN  IT- 1 ,NAME-F I  LEX. FORM- 'UNFORMATTED* .TYPE- ’OLD’ .ERR-800) 
C  NOTICE  THERE  MUST  BE  AT  LEAST  ONE  POINT. 

DO  220  I -I. NPTS 

READ< 1 .END-240 )X{ I  ),Y< I ) 

O-I 

220  CONTINUE 

C  MODIFY  HPTS  TO  REFLECT  THE  ACTUAL  NUMBER  OF  POINTS  READ. 

240  NPTS-J 

CLOSEC  U(IIT-1  ) 

GOTO  900 


C  . 

C  : 

C  :  BOTH  COORDINATES  ARE  CONTAINED  IN  ONE  FILE  AND  IT  IS  FORMATTED. 

C  : 

C  : . 


(continued) 


Subroutine:  PLREAD  (continued) 

3^0  CL0SE(U»IT-1  ) 

WRITE<5.3000) 

3000  FORMAT( / • SENTER  FORMAT  TO  USE  FOR  READING;  (IE.  (2F10.0)  >  ') 

READ<5,3010)FMT 
3010  FORMAT!  32An 

UR  I  TEC  5, 1050) 

READCS, 1060, END-50 >LEN, FI  LEX 
FILEXCLEN  ♦  1 >-0 

OPEN<UNIT»l ,NAME-FILEX.TYPE-'OLD' .ERR-800> 

DO  330  I-l .NPTS 

READ< 1 .FMT.ERR»300.ENO-240>X( I  ).Y( I ) 
a»i 

330  CONTINUE 

GO  TO  240 

C 
C 

c 
c 
c 

400  URITE(5,160) 

160  FORMAT!/, 'SENTER  FILENAME  FOR  X  VALUES:  •> 

READ  !5, 1060.END-900)LENX.FILEX 
WRITE!5,360> 

360  FORMAT! /, 'SENTER  FILENAME  FOR  Y  VALUES:  •) 

REAOCS, 1060, END=900)LENY, FILEY 
FILEX!LENX+1  )«0 
FIL£Y!LENY+1  )»0 

OPENCUNIT-l ,NAME-FILEX,TYPE-‘OLD' , ERR-800, FORM- ’ UNFORMATTED ' ) 

OP EN! UNIT-2, NAME-F I  LEY, TYPE- 'OLD* ,ERR=800, FORM- ' UNFORMATTED '  ) 

DO  460  I-l, NPTS 
READ! 1 .£NO-340)X( I ) 

REAO<2,£NO-340)Y< I ) 

J-I 

460  CONTINUE 

340  NPTS-J 

CLOSE!UNIT-l ) 

CLOSE! UNIT-2 ) 

GO  TO  900 


C 
C 
C 

500  CLOSE (UN  IT- 1 ) 

WR I TE ! 5 , 3000 ) 

READ!5,3010)FMT 
WRITE! 5, 160) 

READ!  5,260,  ErlD-g00>LENX,F  ILEX 
260  FORMAT! Q, 32A1  ) 

WRITE! 5,360) 

READ!  5, 250, END-900 ILENY, FI  LEY 
FILEX!LENX+1  )-0 
FILEY!LENY  +  1  )-0 

OPEN!UNIT-l ,NAME-FILEX,ERR-800.TYPE-'OLD’ > 
OPEN!UNIT-2.NAME-FILEY,ERR-900,TVPE-'OLD'  ) 
DO  560  I-l, NPTS 
READ! I ,FMT,END»340)X! I  ) 

READ! 1 ,FMT.ENO-340)V( I > 

J-I 


COORDINATES  ARE  IN  TWO  FILES  AND  ARE  FORMATTED 


COORDINATES  ARE  CONTAINED  IN  TWO  FILES  AND  ARE  UNFORMATTED 


(continued) 


Subroutine:  PLREAD  (continued) 


560  CONTINUE 

GO  TO  340 

800  WRITE (5. 801) 

801  FORMAT! //,•  YOU  ENTERED  WRONG  DATA  FIL£(S)I  ') 

GO  TO  105 

900  RETURN 

END 


Subroutine:  PON 
Entry:  POFF 


SUBROUTINE  PON  (LUN) 

C  SUBROUTINE  TO  TURN  ON  OR  OFF  THE  TEKTRONIX  4662  PLOTTER. 

C  WRITTEN  BY  RICK  SCOTT 

BYTE  PL0N<3).PL0FF(3) 

INTEGER  IPRM<6) 

DATA  PLON/27.65.69/PLOFF/27.65.70/ 


CALL  GETADR  (IPRM.PLON) 

IPRM<  2  )-3 

CALL  QIO  ( "410.LUN,24, , , IPRM, > 
CALL  WAITFR  (24) 

RETURN 

ENTRY  POFF 

CALL  GETADR  (IPRM.PLOFF) 
IPRM(2)»3 

CALL  QIO  < ■410,LUN.24, , , IPRM, > 
CALL  WAITFR  (24) 

RETURN 

END 


Subroutine:  TXDASH 


C  TKOASH.FTN  O.D. GEORGE  OCTOBER  1975 

C 

C  THE  PURPOSE  OF  SUBROUTINE  TKOASH  IS  TO  PLOT  A  CURVE  AS  A  SERIES  OF 
C  ALTERNATING  BRITE  AND  DARK  LINE  SEGMENTS  OF  ARC  LENGTHS  SPECIFIED 
C  BY  THE  USER 
C 

C  SUBROUTINE  TKDASHI I X , I V , N . DASH , NOASH ) 

C 

C  IX,  lY  ARE  SCREEN  OR  PAPER  COORDINATES 

C 

C  N  IS  THE  NUMBER  OR  INDEX  OF  THE  POINT  IX, lY 

C  N-l,  IS  TREATED  SEPERATELY,  N.GE.l 


(continued) 
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Subroutine 


TKDASH  (continued) 


CASH  IS  AN  ARRAY  OF  SCREEN  COORDINATE  ARC  LENGTHS 
FOR  ALTERNATELY  BRITE  AND  DARK  LINE  SEGMENTS 
ODD  INDICES  ARE  BRITE  SEGMENTS 
EVEN  INDICES  ARE  DARK  SEGMENTS 
I  .£.  I  1  Z  3  4 

DASH(I>  10  10  Z  10 

BRITE  DARK  BRITE  DARK 

NDASH  IS  THE  LENGTH  OF  THE  DASH  ARRAY 

4  SHOULD  PROVIDE  A  WIDE  RANGE  OF  SYMBOLS 
TO  FORCE  ALTERNATE  SRITE-OK  LINE  SEGMENTS 
NDASH  IS  EVEN 

FOR  SOLID  LINE  USE  NDASH  =  1  &  DASH( n=LARGE# 


SUBROUTINES  REQU I  RED : TPLOT 

*  H  «  <r  * 


SUBROUTINE  TKDASHI I X , I Y , N , DASH . NDASH > 
COMMON  /LUN  /LUN 
DIMENSION  0ASH< NDASH) 

DATA  ZERO/0.0/ 

LUN-5 

IF( N.GT. 1  )GOTO  100 

THE  FIRST  POINT  INITIALIZES  THINGS 

XLAST-IX 

YLAST-IY 

LASTOK-l 

IDASH-l 

OLOARC-ZERO 

CALL  TPLOT  ( IX. IY,0) 

RETURN 


ENTRY  FOR  N.GT.l 

00  CONTINUE 

X  =  IX 
Y»IY 

THE  CODE  BELOW  IS  REPEATED  UNTIL  HAVE  PLOTTED  SEGMENTS  TO 
POINT  IX, lY 

00  CONTINUE 


DX-X-XLAST 

DY=Y-YLAST 

ARC»SaRT( DX«OX*OY*OY  ) 

IF(ARC.EQ.ZERO>GOTO  1000 

THE  PATH  DEPENDS  ON  WHETHER  ARC  EXTENDS  BEYOND  THE  NEXT 
LINE  SEGMENT  SPECIFIED  IN  OASHIIDASH) 

IF< (OLDARC*ARC  )  .GE, <  DASH< I  DASH  >  >  )GOTO  300 

THE  ARC  TERMINATES  WITHIN  THE  CURRENT  LINE  SEGMENT 


(continued) 


23 


Subroutine:  TKDASIl  (continued) 


XINC-DX 

VINC-OY 

OLDARC-OLOARC*ARC 
GOTO  400r 
C 
C 

C  THE  ARC  TERMINATES  AT  OR  BEYOND  THE  CURRENT  LINE  SEGMENT 

C 

C 

300  CONTINUE 

XINC-OX*' 0ASH< lOASH  I-OLOARC )/ARC 
VINC-0V*( DASH( lOASH  )-QLDARC  )/ARC 
OLOARC-ZERO 
C 

400  CONTINUE 

X0-XLAST+XINC 

Y0«yLAST*VINC 

C 

C  IF  IDASH  IS  EVEN  PLOT  DARK  VECTOR 
C  IF  IDASH  IS  ODD  PLOT  BRITE  VECTOR 
C 

C  MODIFY  TO  NOTE  THE  TRANSITION  FROM  LITE  TO  DARK 

C  MOVE  TO  EDGE  WITH  DK  VECTOR,  THEN  PUT  DOWN  DK  VECTOR  AT  EDGE 

C 

C  FOR  DK  VECTOR  SKIP  PLOTTING  UNTIL  SENSE  LITE-TO-DK  TRANSITION 
C 

IDARK-MOD( IDASH, 2) 

IX0«X0 
I Y0-V0 

IFUOARK.EQ.0)GOTO  410 
IF<LASTOK.EQ.IDARK>GOTO  405 
IXLAST«XLAST 
lYLAST-YLAST 

CALL  TPLOT  ( I XLAST, I YLAST .0 ) 

CALL  TPLOT  ( I XLAST , I YLAST, 1  ) 

405  CONTINUE 

CALL  TPLOT  ( 1X0, I V0, lOARK ) 

410  LASTDK-IOARK 

C 

C  SETUP  FOR  NEXT  POINT 
C 

XLAST-X0 

YLAST-Y0 

C 

C  REPEAT  PLOTTING  UNTIL  ARC  TERMINATES  WITHIN  A 
C  SEGMENT  OF  DASH 
C 

C  I.E.  OLDARC.NE.ZERO 
C 

IFIOLDARC.NE.ZEROJGOTO  1000 
I  DASH-MOD  (  1DASH,NDASH 
GOTO  200 

C 

C  EXIT 
C 

1000  CONTINUE 
RETURN 
END 
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o  n  o  n  o  o  o 


Subroutine:  MINMAX 


THIS  SUBROUTINE  DETERMINES  THE  MINIMUM  AND  MAXIMUM  VALUE  OF  ARRAY 
"A*  WHERE  N  IS  THE  NUMBER  OF  POINTS. 


WRITTEN  BY  TINA  RUGGIERO 
SUBROUTINE  MI NMAXI A ,MIN ,MAX . N  ) 
REAL  A(N>,MAX.MIN 
INTEGER  I.N 
MIN>A( 1  ) 

MAX>A(  1  ) 

DO  30  1-2. N 

IF  (A( I ).LT.MIN)MIN«A( I  ) 

IF  (  A(  I  > .GT.MAX  )MAX-A(  I  ) 

30  CONTINUE 

RETURN 
END 


Subroutine:  TPLO”^ 


SUBROUT’NE  TrLOT  (IX.IY.M) 

C  WRITTEM  BY  RICK  SCOTT 

C  REVISE}  BY  BOB  ANDERSON 

C  SUBROITINE  TO  PLOT  ON  THE  TEKTRONIX  4010  AND  613  DISPLAY 

C  TERMINALS  (AS  CHOSEN  IN  “TERM"  SUBROUTINE). 

C  FORTRAN-IV  BUFFERED  VERSION. 

C  VALUES  TO  PLOT:  IX. lY 

C  MODES  TO  PLOT:  M>0  (BRIGHT).  M-0  (DARK).  M<0  (POINT) 

C  LUN  6:  THIS  SUBROUTINE  USES  OIOB. 

C  REMEMBER  TO  "URGE  THE  BUFFER  WHEN  DONE  (WITH  TERM). 

BYTE  IOUT(3) 

1-0 

IOUT( 1 )-000 
IF  (M.GT.0)  GOTO  11 

C  INITIAL  PLOT,  DARK  PLOT,  POINT  PLOT— 

10  I-I+l 
IOUT( I  )-"35 

C  ALL  MODES— SEPARATE  COORDINATES  INTO  HIGH-  AND  LOW-ORDER  BYTES 

11  I-I+l 

IOUT( I  )-IY/l23  +  32 
I-I  +  l 

lOUTI I  )  =  ( I Y-4»( IV/4  >  )-4 

IOUT( I  )-IOUT( I )  +  ( IX-4«( IX/4 ) )  +  96 

I-I  +  l 

10UT( I )-IY-123*{ IV/128) 

IOUT( I  )-96  +  ( IOUT( I  )/4  ) 

I-I  +  l 

IOUT( I )-IX/128+32 
I-I  +  l 

IO'JT(  I  )-IX-128-(  IX/12B  ) 

IOUT( I )  =  64  +  (  IOUT(  I )/4 ) 
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Subroutine;  TPLOT  (continued) 


IF  (M.GE.^)  GOTO  ZZ 
C  REINFORCE  FOR  POINT  PLOT 

12  I-I*l 

IOUT( I )-IOUT{ I-l  ) 

C  EXECUTE  010  AND  RETURN 

ZZ  CALL  QIOB  (  "  5  IflT,  6 . 24  .BT .  lOUT .  I .  ISW ) 

CALL  WAITFR  (24> 

RETURN 

END 


Subroutine:  TERM 


SUBROUTINE  TERMIK.L) 

C  WRITTEN  BY  RICK  SCOTT 

C  THIS  SUBROUTINE  WILL  MANIPULATE  THE  TERMINAL— 


c 

K-0, 

L-0 

ERASE 

SCREEN 

c 

K-1  . 

L-0 

COPY 

SCREEN 

c 

K-2. 

L-0 

RETURN  TO  ALPHA  MODE 

c 

<=•3. 

L-0 

PURSE 

THE  010  BUFFER 

c 

K-B, 

L-C 

IMPLEMENT  MULTIPLEXER 

C  WHERE  B  IS  BOARD  SELECT  NUMBER  j0f--3 

C  WHERE  C  IS  CONTROL  NUMBER  TERMINAL! 1),  A<2),  B(3),  C( 4 > 

C  (COMBINATIONS  OF  TERMINALS  ARE  ALLOWED) 

C  THIS  PARTICULAR  VERSION  IS  FOR  USE  WITH  BUFFERED 

C  PLOTTING.  AND  EVERY  CALL  TO  TERM  WILL  PURGE  THE  BUFFER. 

BYTE  I0UT(3) 

1-2 

I0UT(l)-"33  (ESCAPE 

IF  (L.NE.jB)  goto  IJJ 

1  KX-K+1 

GOTO  (2,3.5,4a'>.KX 

2  IOUT(2)-"14  (CLEAR  THE  SCREEN 

GOTO  3J0r 

3  I0UT(2>-"Z7  (COPY  THE  SCREEN 

GOTO  30 

5  I0UT(l)-“37  (RETURN  TO  ALPHA  MODE 

I-l 

GOTO  30 

C  PREPARE  ASCII  CHARACTERS  FOR  MUX  BOARD  AND  CONTROL  NUMBERS 

10  IOUT< 2 >-K+*60 

IOUT( 3  >-2**( L-1  )  +  *60 
1-3 


C  OUTPUT  THE  CONTROL  SEQUENCE 

30  CALL  OIOB  (”610,6.24,0.IOUT.I.ISW) 

C  AND  PURGE  THE  BUFFER 

40  CALL  QIOP  ( "610,6, 24,0, IDAT.0.ISW> 


(continued) 
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o  r>  o  o 


i 


Subroutine:  TERM  (continued) 


C  PAUSE  A  MOMENT  IF  SCREEN  IS  BEING  CLEARED 

IF  ((K  +  L).NE.J0r>  RETURN 
CALL  WAIT  ( 1 ,2.M) 

RETURN 

END 


Subroutine:  A4662 


SUBROUTINE  A4662  < L UN . DEV . KX , KY , KA, RF  ) 

C  WRITTEN  BY  RICK  SCOTT 

SUBROUTINE  TO  SET  UP  THE  ALPHABET  OF  PLOTTER  DEV  ON  LINE  LUN- 
SI2E  OF  CHARACTERS  <X  AND  Y).  ANGLE,  AND  FONT. 

ENTRY  AA662R  WILL  RESET  DEFAULT  VALUES,  WHICH  ARE-- 
SIZE  (56X88),  ANGLE  (0).  FONT  (0). 

INTEGER  IPRM(6) 

BYTE  STRING{23),IRST(3),DEV 

DATA  STRING/ “33,  '  A '  .  '  T ’  ,0,  “33 ,  ' A  '  ,  ‘  I '  .3>*0,  '  ,  '  ,3*0,4, 
l"33, 'A' , '0 • ,4-0,4/IRST/"33, 'A' , ' V'/ 

STRING(2)-0EV 
STRING! 4  )-KF  +  "60 
STRING<6)-0EV 

ENCODE  (3. 100,STRING(8) )  KX 
ENCODE  (3. 100, STRING! 12))  KY 

100  FORMAT  !I3) 

STRING! 17  )-0EV 

ENCODE  ! 4 . 101 .STRING! 19 ) )  KA 

101  FORMAT  !I4) 

CALL  GETADR  ! I PRM , STRI NG  ) 

IPRM! 2  )»23 

200  CALL  QIO  ! "410,LUN,24, , , IPRM.  ) 

CALL  WAITER  ! 24 ) 

RETURN 

ENTRY  A4662R  !LUN,DEV) 

IRST!2>-0EV 

CALL  GETADR  (IPRM.IRST) 

IPRM! 2  )«3 
GOTO  200 

END 
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APPENDIX  C 


1  » 


COMPILATION  AND  TASKBUILDING 


The  Digital  Equipment  Corporation  RSX-llM  operating  system  provides  an 
indirect  command  file  processor  that  will  pass  commands  to  a  system  utility 
from  a  file  (indirectly)  rather  than  Interactively  (directly)  from  your 
terminal.  This  facility  allows  the  user  to  create  a  file  containing  commands 
only  once,  minimizing  effort  in  rebuilding  subsequent  tasks  and  helping  to 
eliminate  typographical  or  syntax  errors. 

The  indriect-command-f ile  processor  allows  multiple  levels  of  files, 
which  expands  the  flexibility  of  its  use.  In  the  examples  provided,  note  the 
second  level  of  indirectness  used  in  PLOTTER.CMD.  The  system-utility  task 
name  can  be  included  in  the  indirect  command  file,  as  in  Example  1,  or  can  be 
external  to  the  command  file  as  in  Examples  2  and  3.  The  processor  completely 
executes  one  command  before  it  goes  on  to  the  next  command.  The  current 
command  is  also  displayed  on  the  user's  terminal  allowing  the  user  to  monitor 
progress. 

Example  1  is  an  indirect  command  file  used  to  completely  manage  the 
rebuilding  of  the  task  PLOTTER.  The  semicolon  is  used  to  denote  comment  and 
is  therefore  ignored.  Lines  2  through  6  in  Example  1  contain  commands  to  the 
system  utility  PIP  (Peripheral  Interchange  Program)  to  delete  or  purge  the 
user's  area  of  unnecessary  or  unwanted  files.  Line  7  is  a  call  to  the  system 
FORTRAN  Four  Plus  compiler  (F4p) ,  passing  it  a  second  level  of  Indirect 
commands  containing  f4p  commands.  Finally,  line  8  in  Example  1  instructs  the 
System  Task  Building  (TKB)  to  receive  its  commands  from  the  file  PLOTTER. TKB. 


; PLOTTER.CMD 
PIP  PLOTTER. TSK;*/DE 
PIP  •.FTN/PU:3 
PIP  •.F4P/P0 
PIP  ‘.TRS/PU 
PIP  •.OBJ;‘'/OE 
F*P  9PLOTTER.F4P 
TKB  9PL0TTER.TKB 

Example  I 


Example  2  is  an  indirect  command  file  containing  commands  for  F4P  to 
accomplish  recompilation  of  all  the  FORTRAN  source  files  used  in  the  task 
PLOTTER. 


r 


j RE -COMPILE  SOURCES 

PLOTTER-PLOTTER 

TERM-TERM 

TPLOT-TPLOT 

SCALE-SCALE 

MINMAX-HINMAX 

QIOB-QIOB 

PON-PON 

XVPLOT-XVPLOT 

A466a-A4662 

PLREAO-PLREAD 

TKDASH-TKOASH 


Example  2 

The  default  extensions  are  .FTN  for  the  source  files  (right  of  equal  sign)  and 
•OBJ  for  the  created  object  files  (left).  Example  3  is  an  indirect  command 
file  containing  commands  for  TKB  to  accomplish  linking  of  all  the  necessary 
objects  and  allocation  of  space  for  a  new  cask  image.  The  default  extension 
for  the  input  file(s)  is  .OBJ  and  the  output  extension  is  .TSK. 


5  PLOTTER. TKB 

PLOTTER-PLOTTER, TERM, TPLOT, SCALE, MINMAX.QIOB, PON, XYPL0T,A4662.PLREAD.TKDASH 
/ 

ASS-TI;5:6,SY:1:2 

ACTPIL-S 

Example  3 

To  execute  the  command  file  PLOTTER.CMD,  the  user  types  '0PLOTTER'. 


APPENDIX  D 


UEDIT 


The  program  UEDIT  allows  the  user  to  edit  an  unformatted  file  that  has 
been  created.  Data  may  be  changed  or  new  data  may  be  added. 


PROGRAM  'JED IT 
C 

8VTE  nLE<3Z),ANS<4) 

C 

c 

CALL  ERRSEK 29... FALSE.,,. FALSE...  ) 

CALL  ERRSEK  39 . . . FAL SE . , , .FALSE. , ,  > 

C -  GET  THE  FILENAME  - 

C 

50  WRITE  (5,1000) 

1000  FORMAT  (/'SENTER  FILENAME: •> 

READ  < 5, 1010,ENO-800)  LF.FILE 
1010  FORMAT  (Q.32AI  ) 

FILE(LF-rl  )»0 
C 

OPEN  (UNIT-I .NAME-FILE, TYPE-'OLD‘ . FORM- ’ UNFORMATTED ’ . 
I  ERR=700> 

C 

C -  CHECK  FOR  VERSION  *  - 

C 

90  DO  100  I-I,LF 

IF  (FILE( I >.EQ.  •  I  •  )  FILE< I >-0 

100  CONTINUE 

C 

C-"  OPEN  THE  TEMPORARY  WORK  FILE - 

C 

OPEN  (UNIT-2, NAME-’TEMP. DAT’ . ACCESS- ’ D I RECT ' . 

1  FORM- ’UNFORMATTED’ , RECORDS IZE - 1 , TYP E NEW ’ ) 

C 

C -  XFER  DATA  TO  TEMP  WORK  FILE  - 

C 

NREC-0 

200  READ  (l.ENO-250)  VALUE 

NREC-NREC+1 
WRITE  (2'NREC)  VALUE 
GOTO  200 
C 

250  CLOSE  (UNIT-I) 

C 

C -  READY  TO  EDIT  DATA  FILE  - 

CALL  EDIT  (HREC) 

C 

C -  FINISHED  WITH  EDIT  - 

C 

OPEN  (UNIT-1 .NAME-FILE. FORM- ’UNFORMATTED’ ,TYPE-'NEW’  > 
C 

C -  RE-WRITE  DATA  - 

C 

DO  400  I-l.NREC 
READ  (2’  I  )  VALUE 
WRITE  ( 1  )  VALUE 
400  CONTINUE 

GOTO  800 


(continued) 


c 

c - 

c 

700 

1050 

1055 


C 

C - 

C 

800 

1060 


OPEN  FAILURE  ON  INPUT  FILE  — 

WRITE  (5.1050) 

FORMAT  (/'SCREATE  NEW  FILE?') 

READ  ( 5, 1055.ENO-800)  ANS 
FORMAT  ( 4A1  ) 

IF  <ANS< 1 >.NE. ' V )  GOTO  50 

OPEN  (UNIT-1 .NAME-FILE. FORM-'UNFORMATTED' ,TYPE-*NEW' ) 
GOTO  90 

GO  BYE  BYE 
WRITE  (5,1060) 

FORMAT  (/'  EOITTING  SESSION  COMPLETE.') 

CLOSE  (UNIT-1) 

CLOSE  (UNIT-2, DISPOSE-'OELETE' > 

CALL  EXIT 
END 
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